nycrest_data %>% mutate(text_label = str_c("Boro: ", boro, '\nRating: ', score)) %>% plot_ly(y = ~score, x = ~boro, type = "box", alpha = 0.5, colors = "Set2", text = ~text_label)